#Clear R
rm(list=ls())

#########################
#Study 1
#########################
## Code raw data in study 1
source("Study1_coding.R")
## Get results for study 1
source("Study1_results.R")
## Get Appendixes for study 1
source("Study1_appendixes.R")

#########################
#Study 2
#########################
rm(list=ls())

## Code raw data in study 1 - ignore arnings
source("Study2_coding.R")
## Get results for study 1
source("Study2_results.R")
## Get Appendixes for study 1
source("Study2_appendixes.R")

#########################
#Study 3
#########################
rm(list=ls())

## Code raw data in study 1 - ignore arnings
source("Study3_coding.R")
## Get results for study 1
source("Study3_results.R")
## Get Appendixes for study 1
source("Study3_appendixes.R")
